home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Music⁄Sounds / BeepSay 1.0.1 / SysBeep.a < prev    next >
Encoding:
Text File  |  1993-05-25  |  1.9 KB  |  83 lines  |  [TEXT/MPS ]
  1. ;******************************************************************************
  2. ;*
  3. ;*  Folder Name:    BS
  4. ;*     File Name:    SysBeep.a
  5. ;*
  6. ;*   Copyright:    © 1993 Siren Enterprises, Inc, all rights reserved.
  7. ;*
  8. ;*   Description:    PC-relative holder for the SysBeep patch.
  9. ;*
  10. ;******************************************************************************
  11. ;*                       A U T H O R   I D E N T I T Y
  12. ;******************************************************************************
  13. ;*
  14. ;*    Initials    Name
  15. ;*    --------    -----------------------------------------------
  16. ;*    KW            Ken Wieschhoff
  17. ;*
  18. ;******************************************************************************
  19. ;*                      R E V I S I O N   H I S T O R Y
  20. ;******************************************************************************
  21. ;*
  22. ;*      Date        Time    Author    Description
  23. ;*    --------    -----    ------    ---------------------------------------------
  24. ;*    05/17/93    21:06    KW        Original version.
  25. ;*
  26. ;******************************************************************************
  27.  
  28.         INCLUDE    'SysErr.a'
  29.         INCLUDE    'QuickEqu.a'
  30.         INCLUDE    'SysEqu.a'
  31.         INCLUDE    'Traps.a'
  32.         INCLUDE    'ToolEqu.a'
  33.         
  34. ;
  35. ; pascal long * OldSysBeep(void);
  36. ;
  37. ; Stores the prior SysBeep patch.
  38. ;
  39.  
  40. OLDSYSBEEP        PROC    EXPORT
  41.  
  42.                 STRING    ASIS
  43.                 
  44.                 bsr.s    continue        ; pushes storage area address on stack
  45. storage            dc.l    0                ; Storage area
  46. continue        move.l    (sp)+,a0        ; Pop address into a0
  47.                 move.l    a0,4(sp)        ; Place function result
  48.                 rts
  49.  
  50.                 ENDP
  51. ;
  52. ; pascal long * OldA5(void);
  53. ;
  54. ; Stores the prior A5 World
  55. ;
  56.  
  57. OLDA5            PROC    EXPORT
  58.  
  59.                 STRING    ASIS
  60.                 
  61.                 bsr.s    continue        ; pushes storage area address on stack
  62. storage            dc.l    0                ; Storage area
  63. continue        move.l    (sp)+,a0        ; Pop address into a0
  64.                 move.l    a0,4(sp)        ; Place function result
  65.                 rts
  66.  
  67.  
  68.                 ENDP
  69. ;
  70. ; pascal long GetA5(void);
  71. ;
  72. ;    Return the current value of A5.
  73. ;
  74. ;
  75. GETA5             PROC     EXPORT
  76.  
  77.                  MOVE.L     A5,4(A7)        ; Get A5 as function result
  78.                  RTS        
  79.                  
  80.                  ENDP
  81.  
  82.                 END
  83.